home *** CD-ROM | disk | FTP | other *** search
/ Crack It! / Crack It!.iso / CONTENT / JSTEST / JST300D.EXE / INSTRUC.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-09-09  |  1.4 KB  |  69 lines
  1. {
  2.  ***
  3.  
  4.  INSTRUC.PAS
  5.  Instruction-related Routines and Data
  6.  (C)Copyright Gerard Paul Java 1996
  7.  
  8.  Unit Source File
  9.  
  10.  
  11.  This unit contains code and data related to instructions used in programs.
  12.  It contains the "continue" message, and a procedure to display the "just
  13.  see box" message in the bottom line.
  14.  
  15.  ***
  16.  
  17. }
  18.  
  19. {$A+,B-,F-,I-,N-,R-,S-,V-}
  20.  
  21. unit Instruc;
  22.  
  23. interface
  24.  
  25. type
  26.   InstrucStr = string[60];
  27.  
  28. const
  29.   ContMsg = 'Press a key to continue';
  30.   CancelOrContMsg = 'Press Esc to cancel, any other key to continue';
  31.  
  32. procedure JustSeeBox;
  33. procedure ShowInstTitle(Col,Row: byte);
  34. procedure InstBox(y1,Y2: byte;String1,String2: InstrucStr);
  35.  
  36. implementation
  37. uses
  38.   Crt,
  39.   ScreenRt,
  40.   SysRt;
  41.  
  42. {---------------------------------------------------------------------------
  43.  JustSeeBox: Displays an instruction to just see the instructions in the
  44.  box.
  45.  ---------------------------------------------------------------------------}
  46.  
  47. procedure JustSeeBox;
  48. begin
  49.   TextAttr := TextNormAttr;GotoXY(2,25);
  50.   Write('See instruction in box');
  51. end;
  52.  
  53. procedure ShowInstTitle(Col,Row: byte);
  54. begin
  55.   GotoXY(Col,Row);Write(' Instruction ');
  56. end;
  57.  
  58. procedure InstBox;
  59. begin
  60.   Window(1,1,80,25);
  61.   JustSeeBox;
  62.   TextAttr := BoxAttr;DrawBox(9,y1,72,y2,DoubleLine);
  63.   Window(11,y1+1,72,y2);textattr := textnormattr;
  64.   Writeln(String1);
  65.   TextAttr := TextHighAttr;Write(String2);
  66. end;
  67.  
  68. end.
  69.